/* GUI CONVERTED from reopiqa.p (converter v1.75) Sat Aug 12 23:06:46 2000 */
/* reopiqa.p - OPERATION HISTORY INQUIRY SUBPROGRAM FOR WIPLOT TRACE    */
/* Copyright 1986-2002 QAD Inc., Carpinteria, CA, USA.                  */
/* All rights reserved worldwide.  This is an unpublished work.         */
/*V8:ConvertMode=Report                                                 */
/* REVISION: 9.1      CREATED       : 01/01/99     BY: *N002* Steve Nugent */
/* REVISION: 9.1      LAST MODIFIED: 03/24/00     BY: *N08T* Annasaheb Rahane */
/* REVISION: 9.1      LAST MODIFIED: 08/12/00     BY: *N0KP* myb              */


/*                                                                          */
/* -----  W A R N I N G  -----  W A R N I N G  -----  W A R N I N G  -----  */
/*                                                                          */
/*         THIS PROGRAM IS A BOLT-ON TO STANDARD PRODUCT MFG/PRO.           */
/* ANY CHANGES TO THIS PROGRAM MUST BE PLACED ON A SEPARATE ECO THAN        */
/* STANDARD PRODUCT CHANGES.  FAILURE TO DO THIS CAUSES THE BOLT-ON CODE TO */
/* BE COMBINED WITH STANDARD PRODUCT AND RESULTS IN PATCH DELIVERY FAILURES.*/
/*                                                                          */
/* -----  W A R N I N G  -----  W A R N I N G  -----  W A R N I N G  -----  */
/*                                                                          */


/*GUI preprocessor directive settings */
&SCOPED-DEFINE PP_GUI_CONVERT_MODE REPORT

          {mfdeclre.i}
          {gplabel.i} /* EXTERNAL LABEL INCLUDE */

 /* ********** Begin Translatable Strings Definitions ********** */

 &SCOPED-DEFINE reopiqa_p_1 " WIP Lot Processed "
 /* Maxlen:40 Comment: The WIP (Work-In-Process) material used during
                       this transaction. */

 &SCOPED-DEFINE reopiqa_p_2 " WIP Lot Trace Data "
 /* Maxlen:40 Comment: The WIP material consumed and produced during this
                       transaction. */

 /* ********** End Translatable Strings Definitions ********** */

          define input parameter op_recid as recid no-undo.
          {wlcon.i} /*CONSTANTS DEFINITIONS*/

          {wbrp02.i}

          for first op_hist where recid(op_hist) = op_recid no-lock: end.

          if op_wip_lotser <> ''
          then do with frame wlt2:

        /* SET EXTERNAL LABELS */
            setFrameLabels(frame wlt2:handle).

        display
            op_wip_lotser @ wlt_lotser    colon 25
            op_wip_ref @ wlt_ref       colon 25
            with frame wlt2 centered overlay row 11 side-labels
            title color normal (getFrameTitle("WIP_LOT_PROCESSED",25))  STREAM-IO /*GUI*/ .
          end.

          for each wlt_mstr no-lock
          where wlt_tr_type = OPERATION_HISTORY
          and wlt_trnbr = op_trnbr
          with frame wlt 7 down
          title color normal (getFrameTitle("WIP_LOT_TRACE_DATA",26))
          centered overlay row 11:

            for first pt_mstr no-lock where pt_part = wlt_part: end.

            /* SET EXTERNAL LABELS */
            setFrameLabels(frame wlt:handle).
            display
            wlt_prcons_ind
            wlt_part
            wlt_lotser
            wlt_ref
            wlt_qty
            pt_um when (available pt_mstr)
             WITH STREAM-IO /*GUI*/ .
          end.

          hide frame wlt.
          hide frame wlt2.

          {wbrp04.i}
